home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / phase5 / ppcrelease / fd2inline / makepragmas.awk < prev    next >
Text File  |  1998-02-21  |  559b  |  23 lines
  1. #! /bin/awk -f
  2. #
  3. # makepragmas.awk
  4. #
  5. # Copyright (C) 1996 Kamil Iskra <iskra@student.uci.agh.edu.pl>
  6. # Distributed under terms of GNU General Public License.
  7. #
  8. # This file is part of fd2inline package.
  9. #
  10. # It is used to produce SAS/C compatible "pragmas" files.
  11. #
  12. # Input variables:
  13. # PRAGMAS - basename of "pragma" file to create.
  14.  
  15. BEGIN {
  16.     print "/* Automatically generated header! Do not edit! */"
  17.     print
  18.     print "#ifndef _INLINE_" toupper(PRAGMAS) "_H"
  19.     print "#include <inline/" PRAGMAS ".h>"
  20.     print "#endif /* !_INLINE_" toupper(PRAGMAS) "_H */"
  21.     exit
  22. }
  23.